Load packages

#load leaflet and other packages
library(leaflet)
library(dplyr)
#Load htmltools
library(htmltools)
#Load spatial packages
library(rgdal)
library(rmapshaper)
# library(devtools)
# install_git('https://github.com/yohanboniface/Leaflet.TileLegend')
# install_git('https://github.com/consbio/Leaflet.HtmlLegend')

Load data from species records and shapefiles (sourced from VicData and Vicforests, then simplified/dissolved in mapshaper)

#Read in LBP csv
LBPdata <- read.csv('data/LBP Records.csv')
#Read in LBP csv
YBGdata <- read.csv('data/YBG Records.csv')
#Read in GG
GGdata <- read.csv('data/GG Records.csv')
#Read in Tree Geebung
Geebungdata <- read.csv('data/Geebung Records.csv')
#Have to use external map shaper as r map shaper cannot handle polygons?
fire.dissolve <- readOGR("data/Fire_Dissolve/fire_sev09_poly.shp")
OGR data source with driver: ESRI Shapefile 
Source: "data/Fire_Dissolve/fire_sev09_poly.shp", layer: "fire_sev09_poly"
with 1 features
It has 1 fields
#From using dissolve2 in mapshaper we decrease file size. Now lets run this for all of our polygons 
#Logging
logging.dissolve <- readOGR("data/Logging_Dissolve/lastlog25.shp")
OGR data source with driver: ESRI Shapefile 
Source: "data/Logging_Dissolve/lastlog25.shp", layer: "lastlog25"
with 1 features
It has 1 fields
#TRP
TRP.dissolve <- readOGR("data/TRP_Dissolve/out.shp")
OGR data source with driver: ESRI Shapefile 
Source: "data/TRP_Dissolve/out.shp", layer: "out"
with 1 features
It has 1 fields

Make Icons for LBP, YBG and GG

#For YBG
YBGIcon <- makeIcon(
  iconUrl = "data/Icons/YBGIcon.png",
  iconWidth = 50, iconHeight = 50,
  iconAnchorX = 25, iconAnchorY = 50
)
#For GG
GGIcon <- makeIcon(
  iconUrl = "data/Icons/GGIcon.png",
  iconWidth = 50, iconHeight = 50,
  iconAnchorX = 25, iconAnchorY = 50
)
#For LBP
LBPIcon <- makeIcon(
  iconUrl = "data/Icons/LBPIcon.png",
  iconWidth = 50, iconHeight = 50,
  iconAnchorX = 25, iconAnchorY = 50
)
#For Geebubng 
GeebungIcon <- makeIcon(
  iconUrl = "data/Icons/geebung2.png",
  iconWidth = 50, iconHeight = 50,
  iconAnchorX = 25, iconAnchorY = 50
)

Create map with all features

Map that allows us to show/hide layers

#Plot map
LBPmap
Warning message:
package ‘sp’ was built under R version 3.3.2 

Save as html

library(htmlwidgets)
saveWidget(LBPmap, file="LBPmap.html")
LS0tCnRpdGxlOiAiV09UQ0ggSW50ZXJhY3RpdmUgTWFwIFtGdWxsXSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKTG9hZCBwYWNrYWdlcwpgYGB7ciwgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlPUZBTFNFfQojbG9hZCBsZWFmbGV0IGFuZCBvdGhlciBwYWNrYWdlcwpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkoZHBseXIpCgojTG9hZCBodG1sdG9vbHMKbGlicmFyeShodG1sdG9vbHMpCgojTG9hZCBzcGF0aWFsIHBhY2thZ2VzCmxpYnJhcnkocmdkYWwpCmxpYnJhcnkocm1hcHNoYXBlcikKCiMgbGlicmFyeShkZXZ0b29scykKIyBpbnN0YWxsX2dpdCgnaHR0cHM6Ly9naXRodWIuY29tL3lvaGFuYm9uaWZhY2UvTGVhZmxldC5UaWxlTGVnZW5kJykKIyBpbnN0YWxsX2dpdCgnaHR0cHM6Ly9naXRodWIuY29tL2NvbnNiaW8vTGVhZmxldC5IdG1sTGVnZW5kJykKYGBgCgpMb2FkIGRhdGEgZnJvbSBzcGVjaWVzIHJlY29yZHMgYW5kIHNoYXBlZmlsZXMgKHNvdXJjZWQgZnJvbSBWaWNEYXRhIGFuZCBWaWNmb3Jlc3RzLCB0aGVuIHNpbXBsaWZpZWQvZGlzc29sdmVkIGluIG1hcHNoYXBlcikKCmBgYHtyfQojUmVhZCBpbiBMQlAgY3N2CkxCUGRhdGEgPC0gcmVhZC5jc3YoJ2RhdGEvTEJQIFJlY29yZHMuY3N2JykKCiNSZWFkIGluIExCUCBjc3YKWUJHZGF0YSA8LSByZWFkLmNzdignZGF0YS9ZQkcgUmVjb3Jkcy5jc3YnKQoKI1JlYWQgaW4gR0cKR0dkYXRhIDwtIHJlYWQuY3N2KCdkYXRhL0dHIFJlY29yZHMuY3N2JykKCiNSZWFkIGluIFRyZWUgR2VlYnVuZwpHZWVidW5nZGF0YSA8LSByZWFkLmNzdignZGF0YS9HZWVidW5nIFJlY29yZHMuY3N2JykKCiNIYXZlIHRvIHVzZSBleHRlcm5hbCBtYXAgc2hhcGVyIGFzIHIgbWFwIHNoYXBlciBjYW5ub3QgaGFuZGxlIHBvbHlnb25zPwpmaXJlLmRpc3NvbHZlIDwtIHJlYWRPR1IoImRhdGEvRmlyZV9EaXNzb2x2ZS9maXJlX3NldjA5X3BvbHkuc2hwIikKCiNGcm9tIHVzaW5nIGRpc3NvbHZlMiBpbiBtYXBzaGFwZXIgd2UgZGVjcmVhc2UgZmlsZSBzaXplLiBOb3cgbGV0cyBydW4gdGhpcyBmb3IgYWxsIG9mIG91ciBwb2x5Z29ucyAKCiNMb2dnaW5nCmxvZ2dpbmcuZGlzc29sdmUgPC0gcmVhZE9HUigiZGF0YS9Mb2dnaW5nX0Rpc3NvbHZlL2xhc3Rsb2cyNS5zaHAiKQoKI1RSUApUUlAuZGlzc29sdmUgPC0gcmVhZE9HUigiZGF0YS9UUlBfRGlzc29sdmUvb3V0LnNocCIpCmBgYAoKCk1ha2UgSWNvbnMgZm9yIExCUCwgWUJHIGFuZCBHRwpgYGB7cn0KI0ZvciBZQkcKWUJHSWNvbiA8LSBtYWtlSWNvbigKICBpY29uVXJsID0gImRhdGEvSWNvbnMvWUJHSWNvbi5wbmciLAogIGljb25XaWR0aCA9IDUwLCBpY29uSGVpZ2h0ID0gNTAsCiAgaWNvbkFuY2hvclggPSAyNSwgaWNvbkFuY2hvclkgPSA1MAopCgojRm9yIEdHCkdHSWNvbiA8LSBtYWtlSWNvbigKICBpY29uVXJsID0gImRhdGEvSWNvbnMvR0dJY29uLnBuZyIsCiAgaWNvbldpZHRoID0gNTAsIGljb25IZWlnaHQgPSA1MCwKICBpY29uQW5jaG9yWCA9IDI1LCBpY29uQW5jaG9yWSA9IDUwCikKCiNGb3IgTEJQCkxCUEljb24gPC0gbWFrZUljb24oCiAgaWNvblVybCA9ICJkYXRhL0ljb25zL0xCUEljb24ucG5nIiwKICBpY29uV2lkdGggPSA1MCwgaWNvbkhlaWdodCA9IDUwLAogIGljb25BbmNob3JYID0gMjUsIGljb25BbmNob3JZID0gNTAKKQoKI0ZvciBHZWVidWJuZyAKCkdlZWJ1bmdJY29uIDwtIG1ha2VJY29uKAogIGljb25VcmwgPSAiZGF0YS9JY29ucy9nZWVidW5nMi5wbmciLAogIGljb25XaWR0aCA9IDUwLCBpY29uSGVpZ2h0ID0gNTAsCiAgaWNvbkFuY2hvclggPSAyNSwgaWNvbkFuY2hvclkgPSA1MAopCgpgYGAKCgoKCkNyZWF0ZSBtYXAgd2l0aCBhbGwgZmVhdHVyZXMKCk1hcCB0aGF0IGFsbG93cyB1cyB0byBzaG93L2hpZGUgbGF5ZXJzCgpgYGB7ciwgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTEwfQoKTEJQbWFwIDwtIGxlYWZsZXQoZGF0YSA9IExCUGRhdGEpICU+JSAKICBmaXRCb3VuZHMobG5nMSA9IDE0NS4wNDM1NjM4NDI3NzM0NCwgbGF0MSA9IC0zNy4yMDI5ODc3Mzk3NDIxOCwgbG5nMiA9IDE0Ni40ODQ4MzI3NjM2NzE4OCwgbGF0MiA9IC0zOC4xMzIzOTYxODYwMjI5NDUpICU+JQogICNCYXNlIGdyb3VwcwogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJE9wZW5TdHJlZXRNYXAuTWFwbmlrLCBncm91cCA9ICJCYXNpYyAoZGVmYXVsdCkiKSAlPiUKICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRPcGVuVG9wb01hcCwgZ3JvdXAgPSAiVG9wb2dyYXBoaWMiKSAlPiUKICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRFc3JpLldvcmxkSW1hZ2VyeSwgZ3JvdXAgPSAiU2F0ZWxsaXRlIikgJT4lCiAgCiAgIyNPdmVybGF5IGdyb3VwcwogIAogICNMZWFkYmVhdGVyJ3MgQ2lyY2xlcyBhbmQgSWNvbnMKICBhZGRNYXJrZXJzKH5sbmcsIH5sYXQsIGxhYmVsID0gfnNwZWNpZXMsIGljb24gPSBMQlBJY29uLCBncm91cCA9ICJMZWFkYmVhdGVyJ3MgUG9zc3VtIikgJT4lCiAgYWRkQ2lyY2xlcyh+bG5nLCB+bGF0LCByYWRpdXMgPSAyMDAsIGNvbG9yID0gJ2JsdWUnLCBsYWJlbCA9IH5zcGVjaWVzLCBncm91cCA9ICIyMDAgbSBidWZmZXIiKSAlPiUKICBhZGRDaXJjbGVzKH5sbmcsIH5sYXQsIHJhZGl1cyA9IDEwMDAsIGNvbG9yID0gJ3JlZCcsIGxhYmVsID0gfnNwZWNpZXMsIGdyb3VwID0gIjEga20gYnVmZmVyIikgJT4lCgogIAogICNQb2x5Z29ucyBmb3IgbG9nZ2luZyBhbmQgZmlyZQogIGFkZFBvbHlnb25zKGRhdGEgPSBmaXJlLmRpc3NvbHZlLCBjb2xvciA9ICdyZWQnLCBncm91cCA9ICIyMDA5IGJ1c2hmaXJlcyIpICU+JQogIGFkZFBvbHlnb25zKGRhdGEgPSBsb2dnaW5nLmRpc3NvbHZlLCBjb2xvciA9ICdncmV5Jywgb3BhY2l0eSA9IDAuNCwgZ3JvdXAgPSAiSGlzdG9yaWMgTG9nZ2luZyIpICU+JQogIGFkZFBvbHlnb25zKGRhdGEgPSBUUlAuZGlzc29sdmUsIGNvbG9yID0gJ2JsYWNrJywgZ3JvdXAgPSAiVGltYmVyIFJlbGVhc2UgUGxhbiAyMDE3IikgJT4lCiAgCiAgI0ljb25zIGZvciBZQkcgYW5kIEdHCiAgYWRkTWFya2VycyhkYXRhID0gWUJHZGF0YSwgfmxuZywgfmxhdCwgbGFiZWwgPSB+c3BlY2llcywgaWNvbiA9IFlCR0ljb24sIGdyb3VwID0gIlllbGxvdy1iZWxsaWVkIEdsaWRlciIpICU+JQogIGFkZE1hcmtlcnMoZGF0YSA9IEdHZGF0YSwgfmxuZywgfmxhdCwgbGFiZWwgPSB+c3BlY2llcywgaWNvbiA9IEdHSWNvbiwgZ3JvdXAgPSAiR3JlYXRlciBHbGlkZXIiKSAlPiUKICAKICAjSWNvbnMgb3IgVHJlZSBHZWVidW5nCiAgYWRkTWFya2VycyhkYXRhID0gR2VlYnVuZ2RhdGEsIH5sbmcsIH5sYXQsIGxhYmVsID0gflNwZWNpZXMsIGljb24gPSBHZWVidW5nSWNvbiwgZ3JvdXAgPSAiVHJlZSBHZWVidW5nIikgJT4lCiAgCiAgI0FkZGl0aW9uYWwgZmVhdHVyZXMKICBhZGRTY2FsZUJhcihwb3NpdGlvbiA9ICJib3R0b21yaWdodCIpICU+JQogIAogIAogICNsYXllcnMgQ29udHJvbAogIGFkZExheWVyc0NvbnRyb2woCiAgICBiYXNlR3JvdXBzID0gYygiQmFzaWMgKGRlZmF1bHQpIiwgIlRvcG9ncmFwaGljIiwgIlNhdGVsbGl0ZSIpLAogICAgb3ZlcmxheUdyb3VwcyA9IGMoIkxlYWRiZWF0ZXIncyBQb3NzdW0iLCAiMjAwIG0gYnVmZmVyIiwgIjEga20gYnVmZmVyIiwgIlllbGxvdy1iZWxsaWVkIEdsaWRlciIsICIyMDA5IGJ1c2hmaXJlcyIsICJIaXN0b3JpYyBMb2dnaW5nIiwgIlRpbWJlciBSZWxlYXNlIFBsYW4gMjAxNyIsICJHcmVhdGVyIEdsaWRlciIsICJUcmVlIEdlZWJ1bmciKSwKICAgIG9wdGlvbnMgPSBsYXllcnNDb250cm9sT3B0aW9ucyhjb2xsYXBzZWQgPSBGQUxTRSkKICApCkxCUG1hcCA8LSBMQlBtYXAgJT4lIGhpZGVHcm91cChjKCIyMDAgbSBidWZmZXIiLCAiMSBrbSBidWZmZXIiLCAiWWVsbG93LWJlbGxpZWQgR2xpZGVyIiwgIjIwMDkgYnVzaGZpcmVzIiwgIkhpc3RvcmljIExvZ2dpbmciLCAiVGltYmVyIFJlbGVhc2UgUGxhbiAyMDE3IiwgIkdyZWF0ZXIgR2xpZGVyIiwgIlRyZWUgR2VlYnVuZyIpKQoKI1Bsb3QgbWFwCkxCUG1hcApgYGAKClNhdmUgYXMgaHRtbApgYGB7cn0KbGlicmFyeShodG1sd2lkZ2V0cykKc2F2ZVdpZGdldChMQlBtYXAsIGZpbGU9IkxCUG1hcC5odG1sIikKYGBgCgoKCg==